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ZTITL see SOCUP = move cursor up' 
MODULE EDTSMCUP ! Move cursor up 
[pent = *v04-000' ' File: MCUP.BLI Edit: 
= 
BEGIN 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS fo icrhe ie FURNISHED UNDER A LICENSE AND MAY BE USED AND gt 
ONLY IN ACCORDANCE WITH THE TERMS OF +t ee [int AND WITH THE 
INCLUSION OF THe ABOVE Spam, NOTICE. THIS SOFTWARE OR ANY OTHER 
COPIES THEREOF oy NOT BE PROVIDED OR OTHERWISE OMADE AVAILABLE TO ANY 
Gath” TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ee eokat itn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
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FACILITY: EDT -- The DEC Standard Editor 

ABSTRACT: 
Move cursor up. 

ENVIRONMENT: Runs at any access mode - AST reentrant 

AUTHOR: Bob Kushlis, CREATION DATE: September 9, 1979 

MODIFIED BY: 

1-001 - Original. | 19-FEB-1981. This module was created by 
extracti ay ves ne EDT$S$CS_UP from gras MOVCUR. 


1-002 - Regularize headers. JBS~11-Mar-1981 
1-003 - Remove EDTS$G_LN_NO for new screen update logic. JBS 29-Sep-1982 
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TSMCUP = move cursor up 
Declarations 


RSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE "EDTSRC:TRAROUNAM'; 


FORWARD ROUTINE 
EDTSS$CS_uP; 


INCLUDE FILES: 
REQUIRE "EDTSRC:EDTREQ"; 


i MACROS: 

: NONE 

} EQUATED SYMBOLS: 

} NONE 

! OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 
In the routine 


sole 1:18: 


—d 
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p11 
P = move cursor up 1ex8eb-1984 12:28:88 DISkSUMEMASTERCCEDT SRCSMCUP.BLI;1 (3) 


UP = move cursor up DISKSVMSMAST 


ZSBTTL "EDTSSCS_UP = move cursor up’ 
GLOBAL ROUTINE EDTSS$CS_UP ! Move cursor up 
= 


“ 


oO 
— 


This routine moves the cursor - to the first character of the preceding 
e first Line in the buffer, it fails. 


line. If the current Line is t 
! FORMAL PARAMETERS: 
NONE 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


' ROUTINE VALUE: 


SSLESRANLSSSLESLEN 


1 = move successful 


0 = move unsuccessful because we are on the top Line 
SIDE EFFECTS: 
NONE 
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EDT$SRPL_CHGDLN : NOVALUE, 
EDTSS$GET-TXTLN : NOVALUE, 
EDT$S$RD_PRVLN; 


'¢ 
: Replace the current Line in the work file if it has changed. 


EDTSSRPL_CHGDLN (); 
Attempt to go back one Line. 


Ss 


IF EDTSSRD_PRVLN () 
THEN 
BEGIN 
i It succeeded, get the new Line and return success. 
EDTSSGET 
RETURN ( 
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caren ROUTINE 
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ooo 


TXTLN (); 
1); 


| 
- | 
FUNCTIONAL DESCRIPTION: 


+ 


U 
S 
END | 
- ELSE 
; No line above, return failure. 
; RETURN (0); 


DT =- move cursor 16-5 Sep-1 VAX-11 Bliss-32_V P 4 
DTSSCS_UP = move cures? up et 7 9}: 3¢: § DISKSVMSMASTER: tt +°sacSncur. BLI;1 — (3) 
3 141 71 
3 136 71 
; 14 71 
3 166 71 
HORM 
; 123 aS 
; 148 718 END; ! of routine EDTS$CS_UP 
TITLE td Fae EDTSMCUP = move cursor up 
-IDENT \Vv04 
EXTRN EDTSSRPL_CHGDLN 
~EXTRN EDTSS$GET_ TXTLN, EDTSS$RD_PRVLN 
-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
0000 60008 ENTRY EDTSS$CS_UP, Me nothing 3: 0656 
000000006 00 00 FB 00002 CALLS #0, EDTSS$RPL_CHGDLN 3; 0698 
000000006 a 98 4 44 Abs #0, EDTSSRD.  BRVLN : 0703 
000000006 90 00 Fe 0018 CALLS #0, EDTSSGET_TXTLN : 0709 
0 1 DO OOOIA MOVL #1, RO 3; 0716 
04 0001D RET : 
50 D4 OOOIE 1$ CLRL RO 3 
04 00020 RET 3; 0718 


; Routine Size: 33 bytes, Routine Base: _EDTSCODE + 0000 


; «149 0719 #1 
; 150 0720 1 !<BLF/PAGE> 
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Name 
_EDTSCODE 


File 


“B53 38DUA 
$255$DUA 


ting movove Cursor. up if: Sep 1984 Pb:38:8§ DNS dumemaStenscepi sacSmcur.eui;1 2% ca} 


OF ae ! of module EDTSMCUP 
0 ELUDOM 


PSECT SUMMARY 
Bytes Attributes 
33 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL. CON, PIC,ALIGN(2) 


Library Statistics 


conseses Synbel§ coceeces Pages Processing 
Total Loaded Percent Mapped Time 
8:CEDT.SRCJEDT.L32;1 377 0 8 40 00:00.3 
:CEDT. SRCIJPSECTS.L32;1 2 1 5 7 00:00.1 


COMMAND QUALIFIERS 


BLISS/CHECK=(FIELD, INITIAL OPTIMIZE) /NOTRACEBACK/LIS=LIS$:MCUP/OBJ=OBJ$:MCUP MSRC$:MCUP.BLI/UPDATE=(ENHS$ :MCUP) 


Sootetion S 


33 ode + 0 data bytes 


, ; 
Lexenes/CPU-Min: 126 


52 pages 
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